home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 118 / MacAddict 118 2006-06.toast / Software / Graphics & Multimedia / Noise Buster 1.1 (trial).dmg / Noise Buster.pkg / Contents / Resources / postflight < prev    next >
Text File  |  2006-03-17  |  871b  |  44 lines
  1. #!/usr/bin/perl
  2.  
  3.  
  4. my $debug = 0;
  5.  
  6. my $target_location = $ARGV[1];
  7. $target_location .= '/' unless $target_location =~ /\/$/;
  8.  
  9. print "target_loc = $target_location\n" if $debug;
  10.  
  11.  
  12. if ( $target_location !~ /^\// )
  13. {
  14.     exit(1);
  15. }
  16.  
  17.  
  18. ###############################################################
  19.  
  20. my $our_root = '/Library/Application Support/AKVIS LLC/';
  21.  
  22. my $our_dir = $target_location;
  23. #system ( 'rm "' . $our_dir . 'Askfolder.a"' );
  24. system ( 'chmod 777 "' . $our_root . '"' );
  25. system ( 'chmod 777 "' . $our_dir . '"' );
  26.  
  27. my $hlp = $our_dir . 'help';
  28. system ( 'chmod 777 "' . $hlp . '"' );
  29.  
  30. foreach my $lng ( qw/en de fr es image/ )
  31. {
  32.     my $hlp_lng = "$hlp/$lng";
  33.     system ( 'chmod 777 "' . $hlp_lng . '"' );
  34.     my $mask = '"' . $hlp_lng . '/*"';
  35.     foreach my $f (<$mask>)
  36.     {
  37.         system ( 'chmod 666 "' . $f . '"' );
  38.     }
  39. }
  40.  
  41. # system( 'open "' . $hlp . '/index.html"' );
  42.  
  43. exit( 0 );
  44.